home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / LISTDIAL._ / LISTDIAL.
Encoding:
Text File  |  2001-03-02  |  1.1 KB  |  30 lines
  1. 10    ! ********************************************************
  2. 20    ! Example: LIST Dialog
  3. 30    !
  4. 40    ! This program shows a way to use the MULTISELECT attribute.
  5. 50    ! For example, if you click on COSMOPOLITAN, TIME, and SPORTS
  6. 60    ! ILLUSTRATED, then click on OK the program displays
  7. 70    ! OK 1 0 0 1 0 1 0. The '1's correspond to the selected items.
  8. 80    !
  9. 90    ! ********************************************************
  10. 100   !
  11. 110   CLEAR SCREEN
  12. 120   INTEGER Btn,Sel(1:7),V(1:2)
  13. 130   DIM L$(1:7)[20],P$[40],A$(1:2)[16],S$[16]
  14. 140   DATA "COSMOPOLITAN","ENQUIRER","DISCOVER","TIME"
  15. 150   DATA "HEALTH","SPORTS ILLUSTRATED","NEW YORKER"
  16. 160   READ L$(*)
  17. 170      !
  18. 180   DATA "MULTISELECT","COLUMNS",1,30, "SELECTION"
  19. 190   READ A$(*),V(*),S$
  20. 200   P$="Which magazines do you read?"
  21. 210   DIALOG "LIST",P$,Btn;SET ("TITLE":" Example: LIST Dialog","ITEMS":L$(*),A$(*):V(*)),RETURN (S$:Sel(*))
  22. 220   PRINT " Button      Selection"
  23. 230   PRINT
  24. 240   IF Btn=0 THEN
  25. 250     PRINT USING "8A,3X,7(D,X)";" OK",Sel(*)
  26. 260   ELSE
  27. 270     PRINT USING "8A,3X,7(D,X)";"Cancel",Sel(*)
  28. 280   END IF
  29. 290   END
  30.